home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rxcmanager / examples / cmfind.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-25  |  684b  |  41 lines
  1. /*
  2.     FIND ALL ENTRY IN "USER" AND "WWW" GROUP
  3. */
  4.  
  5. if ~show("L","rxcmanager.library") then
  6.     if ~addlib("rxcmanager.library",0,-30) then do
  7.         say "no rxcmanager.library"
  8.         exit
  9.     end
  10.  
  11. parse arg key
  12.  
  13. k = "#?"key"#?"
  14.  
  15. patt.Name    = k
  16. patt.WWW     = k
  17. patt.Comment = k
  18.  
  19. num = CMFind("USER WWW","REC","PATT",1)
  20. if num=0 then do
  21.     say "No entry found for '"key"'"
  22.     exit
  23. end
  24.  
  25. say "Found" num "entry:"
  26. do i=0 to num-1
  27.     say
  28.     say "Type:     " rec.i.Type
  29.     say "Name:     " rec.i.Name
  30.     say "WWW:      " rec.i.WWW
  31.  
  32.     if rec.i.FTP ~= "" then say "FTP:      " rec.i.FTP
  33.  
  34.     say "Comment:  " rec.i.Comment
  35.  
  36.     if rec.i.Type="WWW" then say "WebMaster:" rec.i.WebMaster
  37.  
  38.     say "EMail:    " rec.i.EMail
  39.     say
  40. end
  41.